2 PRINTCHR$(147)"WOULD YOU LIKE INSTRUCTIONS (Y/N)?
4 [161] A$: [139] A$[179][177] "Y" [175] A$[179][177]"N" [167] 4
6 [139] A$[178]"N" [167] 62
8 [153]"INSTRUCTIONS ON SCREEN OR PRINTER (S/P)?
10 GET B$: IF B$<> "S" AND B$<>"P" THEN 10
12 IF B$="S"THEN  D=3
14 IF B$="P" THEN D=4
16 OPEN D,D
18 PRINT#D,"
20 [152]D,"VIDEO POKER BY TONY BRANTNER
22 PRINT#D,"
24 [152]D,"RUN IT RIGHT: C-64; JOYSTICK
26 PRINT#D,"
28 [152]D,"VIDEO POKER IS A GAME FOR ONE PLAYER
30 PRINT#D,"WITH A JOYSTICK IN PORT 2.
32 [152]D,"
34 PRINT#D,"RAISE AND LOWER BETS WITH THE UP-DOWN
36 [152]D,"JOYSTICK MOTION. BETTING CAN ONLY GO TO
38 PRINT#D,"$50 PER HAND, AND CANNOT EXCEED YOUR
40 [152]D,"BALANCE. PLACE BETS AND SELECT THE HOLD
42 PRINT#D,"CARDS WITH THE FIREBUTTON. TO RELEASE A
44 [152]D,"HOLD CARD, PRESS THE FIREBUTTON AGAIN.
46 PRINT#D,"WHEN YOU CHOOSE  YOUR HOLD CARDS, MOVE
48 [152]D,"TO THE DRAW BOX AND PRESS THE FIRE-
50 PRINT#D,"BUTTON. THE CARDS YOU DON'T SELECT WILL
52 [152]D,"BE DISCARDED AND REPLACED. THE COMPUTER
54 PRINT#D,"AUTOMATICALLY CALCULATES YOUR SCORE AND
56 [152]D,"WINNINGS. WHEN YOU ARE READY TO QUIT,
58 PRINT#D,"ENTER A BET OF $0.
60 [152]D,"":[160]D
62 [153]"PRESS ANY KEY TO BEGIN THE PROGRAM..."
64 [161] E$:[139] E$[178]"" [167] 64
66 [156]
68 [143] VIDEO POKER V1.0 - T. BRANTNER
70 [151]52,56:[151]56,56:[156]
72 [134]DC(51),CA(4),CH(15),HV(5),HS(4),PO$(9),PO(9)
74 [129]A[178]0[164]51:DC(A)[178]A:[130]:Z[178][187]([171]TI)
76 V[178]53248:SC[178]1024:SP[178]SC[170]1016:S1[178]54272
78 S2[178]S1[170]7:J2[178]56320:SX[178]50:SY[178]66:MB[178]50
80 CV$[178]"23456789[JQKA":CS$[178]"\]^_"
82 [129]A[178]1[164]38:SP$[178]SP$[170][199](32):[130]
84 [129]A[178]S1[164]S1[170]24:[151]A,0:[130]
86 [151]S1[170]24,15:[141]382
88 BT[178]1:BL[178]100
90 [143]---MAIN
92 [129]A[178]0[164]4:CA(A)[178]0:[130]
94 [141]252
96 [141]190:[139]BT[178]0[167]118
98 [141]168
100 CY[178]1:[141]354:CY[178]6:[141]354
102 [141]252:[141]180:CP[178]0:[141]144
104 [141]218:[141]168:[141]144
106 [141]266:BL[178]BL[170]PO(PV)[172]BT
108 CY[178]1:A$[178]PO$(PV):CC[178]0
110 CX[178]20[171][195](A$):[141]366
112 TM[178]70:[141]346
114 [139]BL[167]92
116 [143]---END GAME
118 CY[178]10:CX[178]7:CC[178]0:A$[178]"PLAY AGAIN?"
120 [141]366:CX[178]31:CC[178]1:XP[178]1
122 JS[178][194](J2)
124 [139](JS[175]2)[178]0[175]XP[178]1[167]XP[178]2
126 [139](JS[175]1)[178]0[175]XP[178]2[167]XP[178]1
128 A$[178][202]("YN",XP,1):[141]366
130 TM[178]10:[141]346
132 [141]360:[153][200](SP$,2)
134 TM[178]10:[141]346:[139](JS[175]16)[167]122
136 [141]354
138 [139]XP[178]1[167][141]326:[137]88
140 [151]832,0:[158]832
142 [143]---DRAW CARDS
144 [129]XP[178]0[164]4
146 [139]CA(XP)[167]164
148 A[178]DC(CP):CS%[178]A[173]13:CV%[178]A[171]13[172]CS%
150 HV(XP)[178]CV%:HS(XP)[178]CS%
152 CY[178]3:CX[178]5[170]XP[172]7:CC[178]CS%[175]2
154 A$[178][202](CV$,CV%[170]1,1):[141]366
156 CY[178]4:A$[178][202](CS$,CS%[170]1,1):[141]366
158 [151]V[170]27,[194](V[170]27)[176]2[174](XP[170]1)
160 [151]V[170]40[170]XP,1:[141]316:CP[178]CP[170]1
162 TM[178]10:[141]346
164 [130]:[142]
166 [143]---FACE DOWN
168 [129]Z[178]0[164]4
170 [139]CA(Z)[167]176
172 [151]V[170]27,[194](V[170]27)[175]255[171]2[174](Z[170]1)
174 [151]V[170]40[170]Z,10
176 [130]:[142]
178 [143]---SHUFFLE
180 [129]A[178]1[164]15:[141]316:[130]
182 [129]A[178]0[164]51:Z[178][181]([187](1)[172]52)
184 AA[178]DC(A):DC(A)[178]DC(Z):DC(Z)[178]AA
186 [130]:[142]
188 [143]---PLACE BET
190 CY[178]10:CX[178]7:CC[178]0:A$[178]"PLACE BET"
192 [141]366:CX[178]25
194 [139]BT[179]0[167]BT[178]0
196 [139]BT[177]MB[167]BT[178]MB
198 [139]BT[177]BL[167]BT[178]BL
200 A[178]BT:Z[178]4:[141]256
202 JS[178][194](J2):[139](JS[175]16)[178]0[167]212
204 [139](JS[175]3)[179][177]3[167]BT[178]BT[170][180](JS[175]2)[171][180](JS[175]1):[137]194
206 TM[178]10:[141]346
208 [141]360:[153][200](SP$,8)
210 TM[178]10:[141]346:[137]194
212 [141]326:[141]354
214 BL[178]BL[171]BT:[142]
216 [143]---HOLD CARDS
218 JX[178]0:JY[178]0
220 [151]V[170]16,32[171](JX[178]4)
222 [151]V,(SX[170]JX[172]56)[175]255
224 [151]V[170]1,SY[170]JY[172]16:TM[178]4:[141]346
226 [151]V[170]1,0:TM[178]4:[141]346
228 JS[178][194](J2):[139](JS[175]16)[178]0[167]242
230 [139](JS[175]2)[178]0[175](JY[178]0)[167]JY[178]1:[141]336
232 [139](JS[175]1)[178]0[175](JY[178]1)[167]JY[178]0:[141]336
234 [139]JY[167]JX[178]2:[137]220
236 [139](JS[175]4)[178]0[175](JX[177]0)[167]JX[178]JX[171]1:[141]336
238 [139](JS[175]8)[178]0[175](JX[179]4)[167]JX[178]JX[170]1:[141]336
240 [137]220
242 [139]JY[167][141]326:[142]
244 CA(JX)[178]1[171]CA(JX):A$[178][200](SP$,4):[139]CA(JX)[167]A$[178][199](152)[170]"HOLD"
246 CY[178]6:CX[178]4[170]JX[172]7:[141]360:[153]A$
248 [141]326:[137]220
250 [143]---PRINT BALANCE
252 CY[178]12:CX[178]21:Z[178]6:A[178]BL
254 [143]---FORMAT NUMBER
256 Z$[178][196](A)
258 A$[178][200](SP$,Z[171][195](Z$))[170]"$"[170][201](Z$,[195](Z$)[171]1)
260 CC[178]1:[141]366
262 [142]
264 [143]---EVALUATE HAND
266 SV[178]0:SR[178]0:FL[178]0:CT[178]0:PV[178]0:HV(5)[178]99
268 [129]A[178]3[164]0[169][171]1:[129]Z[178]0[164]A
270 [139]HV(Z)[179]HV(Z[170]1)[167]AA[178]HV(Z):HV(Z)[178]HV(Z[170]1):HV(Z[170]1)[178]AA
272 [130]:[130]
274 [129]A[178]0[164]4:[129]Z[178]0[164]4
276 [139]HV(Z)[178]HV(A)[167]SV[178]SV[170]1
278 [130]:[130]
280 [129]A[178]0[164]4
282 CT[178]CT[170]HV(A)
284 [139]HV(A)[178]HV(A[170]1)[170]1[167]SR[178]SR[170]1
286 [139]HS(A)[178]HS(0)[167]FL[178]FL[170]1
288 [130]
290 [143]---POINT VALUE
292 [139]SV[178]7[167]PV[178]1
294 [139]SV[178]9[167]PV[178]2
296 [139]SV[178]11[167]PV[178]3
298 [139](SR[178]4)[176](HV(0)[178]12[175]SR[178]3[175]CT[178]18)[167]PV[178]4
300 [139]FL[178]5[167]PV[178]5
302 [139]SV[178]13[167]PV[178]6
304 [139]SV[178]17[167]PV[178]7
306 [139]FL[179]5[167][142]
308 [139](SR[178]4)[176](HV(0)[178]12[175]SR[178]3[175]CT[178]18)[167]PV[178]8
310 [139]HV(0)[178]12[175]SR[178]4[167]PV[178]9
312 [142]
314 [143]---CARD SOUND
316 [151]S1,0:[151]S1[170]1,200
318 [151]S1[170]5,48:[151]S1[170]6,0
320 [151]S1[170]4,128:[151]S1[170]4,129
322 [142]
324 [143]---BEEP SOUND
326 [151]S2,0:[151]S2[170]1,12
328 [151]S2[170]5,8:[151]S2[170]6,240
330 [151]S2[170]4,17:TM[178]6:[141]346
332 [151]S2[170]4,16:[146]J2,16:[142]
334 [143]---CURSOR SOUND
336 [151]S1,0:[151]S1[170]1,10
338 [151]S1[170]5,2:[151]S1[170]6,0
340 [151]S1[170]4,16:[151]S1[170]4,17
342 [142]
344 [143]---DELAY
346 TM[178]TM[170]TI
348 [139]TM[177]TI[167]348
350 [142]
352 [143]---CLEAR LINE
354 [151]214,CY[171]1:[153]:[153]SP$
356 [142]
358 [143]---PLOT
360 [151]214,CY[171]1:[153]:[153][163]CX);
362 [142]
364 [143]---PRINT WIDE STRING
366 SL[178]SC[170]CY[172]40[170]CX
368 [129]A[178]1[164][195](A$)
370 Z[178]([198]([202](A$,A,1))[175]63)[172]2
372 [151]SL[170]S1,CC:[151]SL[170]S1[170]1,CC
374 [151]SL,Z[170]128:[151]SL[170]1,Z[170]129
376 SL[178]SL[170]2
378 [130]:[142]
380 [143]---REDEFINED CHARACTERS
382 [151]53281,5:[151]53280,5
384 [153][199](8)[199](147):[151]V[170]21,0
386 CY[178]12:CX[178]14:[141]360
388 [153][199](144)"SETTING UP..."
390 [151]56334,[194](56334)[175]254
392 [151]1,[194](1)[175]251
394 [151]781,5:[151]782,1:[151]91,212:[151]90,0:[151]89,60:[151]88,0
396 [158]41964
398 [151]1,[194](1)[176]4
400 [151]56334,[194](56334)[176]1
402 [151]53272,([194](53272)[175]240)[176]14
404 [129]A[178]0[164]15:[135]CH(A):[130]
406 N1[178]14336:N2[178]N1[170]1024:N3[178]N2[170]8
408 [129]A[178]0[164]63:[129]Z[178]0[164]7
410 CN[178][194](N1[170]A[172]8[170]Z):AA[178]CH((CN[175]240)[173]16):ZZ[178]CH(CN[175]15)
412 [151]N2[170]A[172]16[170]Z,AA:[151]N3[170]A[172]16[170]Z,ZZ
414 [130]:[130]
416 [129]A[178]0[164]79:[135]Z:[151]N2[170]432[170]A,Z
418 [130]
420 [143]---SPRITES
422 [129]A[178]832[164]959:[135]Z:[151]A,Z:[130]
424 [151]V[170]23,127:[151]V[170]29,127
426 [151]V[170]27,65:[151]V[170]28,127
428 [151]V[170]37,1:[151]V[170]38,0
430 [129]A[178]0[164]4:[151]V[170]40[170]A,10
432 [151]V[170]2[170]A[172]2,(SX[170]A[172]56)[175]255
434 [151]V[170]3[170]A[172]2,SY:[151]SP[170]1[170]A,13
436 [130]:[151]V[170]16,32
438 [151]V[170]12,SX[170]112:[151]V[170]13,SY[170]16
440 [151]SP[170]6,14:[151]V[170]45,0
442 [151]SP,14:[151]V[170]1,0:[151]V[170]39,7
444 [143]---SCREEN
446 [153][199](147):[151]V[170]21,127
448 CY[178]8:CX[178]18:[141]360
450 [153][199](152)"DRAW"
452 CY[178]12:CX[178]7:A$[178]"BALANCE":CC[178]0
454 [141]366
456 CY[178]14:CX[178]8:CC[178]7:A$[178]"***PAYOFF***"
458 [141]366
460 [151]214,CY:[153]:[151]646,0
462 PO$(0)[178]"NO COMBINATION":PO(0)[178]0
464 [129]A[178]1[164]9:[135]PO$(A),PO(A)
466 [153]:[153][163]8)PO$(A);
468 [139]PO(A)[178]1[167][153][163]28)"EVEN";:[137]472
470 [153][163]27[171]([195]([196](PO(A)))));PO(A);"TO 1";
472 [130]:CC[178]13
474 [129]XP[178]1[164]7:CY[178]10[170]XP[172]2
476 A$[178][202]("$POKER$",XP,1)
478 CX[178]3:[141]366:CX[178]35:[141]366
480 [130]:[142]
482 [143]---GRAPHICS DATA
484 [131] 0,3,12,15,48,51,60,63,192,195,204,207,240,243,252,255,113,243
486 [131] 115,115,115,115,249,0,254,135,135,135,135,135,254,0,1,3,7,15,31
488 [131] 63,29,1,128,192,224,240,248,252,184,128,3,7,3,29,63,63,29,1,192
490 [131] 224,192,184,252,252,184,128,30,63,63,31,15,7,3,1,120,252,252
492 [131] 248,240,224,192,128,1,3,15,63,15,3,1,0,128,192,240,252,240,192
494 [131] 128,0,0,0,0,85,85,84,106,170,164,102,102,100,105,153,164,102
496 [131] 102,100,105,153,164,102,102,100,105,153,164,102,102,100,105,153
498 [131] 164,102,102,100,106,170,164,85,85,84,0,0,0,255,255,252,255,255
500 [131] 252,255,255,252,255,255,252,255,255,252,255,255,252,0,0,0,0,0,0
502 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
504 [131] 0,0,0,0,0,0,0,0,170,170,168,170,170,168,170,170,168,170,170,168
506 [131] 170,170,168,170,170,168,0
508 [143]---PAYOFF DATA
510 [131]"ONE PAIR",1
512 [131]"TWO PAIR",2
514 [131]"THREE OF A KIND",3
516 [131]"STRAIGHT",4
518 [131]"FLUSH",6
520 [131]"FULL HOUSE",10
522 [131]"FOUR OF A KIND",25
524 [131]"STRAIGHT FLUSH",50
526 [131]"ROYAL FLUSH",200